If wscript.Arguments.count=0 then 
    msgbox "拖拽文件到本vbs文件",0,"提示"
End if  
for jb=0 to wscript.Arguments.count-1
    strPath=wscript.Arguments(jb)
    msgbox strPath  
next